home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / wb / Runner11.lha / Runner1.1 / Install-Script < prev    next >
Encoding:
Text File  |  1998-03-08  |  7.8 KB  |  322 lines
  1. ; $VER: Runner V1.01 Install Version 1.01 (28.6.97)
  2. ; Installations-Script - na, wofür wohl?
  3. ; 
  4.  
  5. (complete 0)
  6.  
  7. ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
  8. ; Versionen.
  9.  
  10. (set Runner-version "1.1")
  11. (set Runner-Datum "(03.Mar 98)")
  12.  
  13. ;====================================================================
  14. ; Initialisierungen
  15.  
  16.  
  17. (set @default-dest "")
  18.  
  19. (set os-version (/ (getversion) 65536))
  20. (set os-13 (< os-version 36))
  21. (set os-20 (>= os-version 36))
  22. (set os-21 (>= os-version 38))
  23.  
  24. (set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
  25.  
  26. ; Die Pfadnamen der einzelnen Quell-Dateien.
  27.  
  28.  
  29. (set #Startsource         (tackon (pathonly @icon) "Start/"))     ; Hier steht das Verzeichnis
  30. (set #libssource         (tackon (pathonly @icon) "libs"))     ; Hier steht das Verzeichnis
  31. (set source-Runner             (tackon (pathonly @icon) "Runner"))        ; Hauptprogramm 
  32.  
  33.  
  34.  
  35. ;(set !auswahlhilfe
  36. ;    (cat "\nAuf der Festplatte befindet sich bereits eine Version "
  37. ;        "der Datei die installiert werden soll. \n\n"
  38. ;        "Wähle \"Ja\", wenn Sie die alte Datei mit der neuen "
  39. ;        "überschreiben möchten. Anderenfalls wähle bitte \"Nein\"!\n"))
  40.  
  41. (set #prp-copy-Start
  42.     "Kopiere das Hauptarchiv")
  43.  
  44. (set #prp-copy-libs
  45.     "Kopiere library")
  46.  
  47. (set prp-copy-Runner
  48.     "Ein Hauptprogramm ")
  49.  
  50.     
  51. ; Die Dateigrößen
  52.  
  53. (set size-Runner            75000)
  54. (set size-Runner.guide                31000)
  55. (set size-R_Konfiguration                28000)
  56. (set size-library                200000) 
  57.  
  58. (set size-komplett    ( + size-library size-Runner size-Runner.guide size-R_Konfiguration  size-libs))
  59.  
  60. ;=====================================================================================
  61. ; Beginn der Installation
  62. ;=====================================================================================
  63.  
  64. ; Eine kleine Einleitung, gefolgt vom Startbild des Installers.
  65.  
  66. (set act-user-level @user-level)
  67. (user 1)
  68.  
  69. (message (cat    "\nWillkommen zur Installation des \n\n\"Runner Startup-Tool "
  70.                     "Version: " Runner-version " vom "Runner-Datum "\"!\n\n"
  71.                     "Dieses Skript kopiert die verschiedenen Dateien, "
  72.                     "aus denen sich das Archiv zusammensetzt, "
  73.                     "auf Dein Datenträger,in eine Schublade namens `Start`.\n\n"
  74.                     "Bevor es los geht!\n\n Sollte eine zusätzliche Schublade gewählt werden, ist "
  75.                     "nach dem letzten Wort im Dateipfad ein `/` einzufügen."))
  76.  
  77. (user act-user-level)
  78. (welcome)
  79.  
  80. (complete 5)
  81.  
  82. (set act-user-level @user-level)
  83. (user 1)
  84.  
  85.  
  86. ;    Alte Version prüfen und entsprechende Warnung ausgeben! **************************************************************
  87.  
  88. (set folder "WORK:")
  89.  
  90. (if (<> (getassign "Runner") "")
  91.     (
  92.         (message (cat    "Auf Deiner Festplatte befindet sich bereits eine "
  93.                         "Installation von Runner! Achte darauf, daß die Start.dat "
  94.                         "file nicht überschrieben wird. Ansonsten würde die alte "
  95.                         " Einstellung verloren sein und bestehende Starteinträge "
  96.                         " gelöscht. Siehe Dokument, unter Installation. Wichtig: "
  97.                         " Bitte die neue CanDo.library Version3.003 inhouse installieren! "
  98.                         " Ist im Archiv und wird automatisch im Laufe der Installation abgefragt. \n\n"))
  99.                          
  100.  
  101.     (set folder (getassign "Runner"))
  102.     )
  103. )
  104.  
  105. (makeassign "Runner")
  106.  
  107. (user act-user-level)
  108.  
  109. (if (= @user-level 0)
  110.     (
  111.     (user 1)
  112.     (message (cat    "Im Einsteiger-Modus wird davon ausgegangen, daß Runner auf "
  113.                         "einer Festplatte installiert wird, auf der noch mindestens "
  114.                         "ca. 350kByte freier Speicherplatz verfügbar ist. Du wirst "
  115.                         "dazu im nächsten Fenster nach dem Namen der gewünschten "
  116.                         "Schublade gefragt.\n\n"))))
  117.  
  118. (set ok 0)
  119. (while (not ok)
  120.     (set folder
  121.         (askdir
  122.             (prompt "Auswahl des Pfades für die Installation.\nBitte wähle eine Schublade!")
  123.             (help (cat    "    Du kannst über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  124.                             "eine Übersicht über alle Laufwerke Deines Amiga anfordern;  "
  125.                             "Runner kann  in eine Schublade oder aber auf eine "
  126.                         "Partition direkt installiert werden! "
  127.                             @askdir-help))
  128.             (default folder )
  129.             (disk)
  130.         )
  131.     )
  132.  
  133.     ; Die richtige Auswahl könnte zum Beispiel: Work: lauten,
  134.     ; oder Work:Verzeichnisname (wobei für Verzeichnisname 
  135.         ;selbstverständlich ein individuelles konkretes Verzeichnis
  136.     ;existieren muß.
  137.     (if (or (or (<= (substr folder (- (strlen folder) 1) 1) ":")) (= (exists folder (noreq)) 0)) (= (getdiskspace folder) -1))
  138.         (message (cat    "\n Deine Auswahl ist: \"" folder "\" -> aktuelles Verzeichnis\n\n "
  139.                             "Beachte bitte, daß wenn der Dateipfad aus ein oder mehrere Verzeichnisse besteht,"
  140.                             "unbedingt \ndieses -> / <- Zeichen\n hinter den letzen Verzeichnisnamen "
  141.                             "gesetzt werden muß. Das Installskript arbeitet sonst nicht korrekt!!!\n"      
  142.                             "Wenn Du Dir nicht sicher bist breche die Installation ab, sonst ....\n\n" 
  143.                             "Klicke auf Weiter!"))
  144.         ;else
  145.         (
  146.             (set freediskspace (getdiskspace folder))    ; Der freie Speicher auf diesem Medium
  147.  
  148.             (if (< freediskspace size-komplett)
  149.                 (
  150.                 (user 1)
  151.                 (message (cat    "\nAuf der ausgewählten Festplattenpartition "
  152.                                             "steht nicht genügend freier Speicher für die "
  153.                                             "komplette Installation  zur Verfügung.\n\n"
  154.                                             "Freier Speicher " freediskspace "!\n"
  155.                                             "Benötigter Speicher " size-komplett "!\n\n"
  156.                                             "Bitte wähle eine andere Partition, auf "
  157.                                             "mit mehr freien Bytes!"))                
  158.                 )
  159.             ;else
  160.             (set ok 1)
  161.             )
  162.         
  163.     )
  164. )
  165.  
  166. (user act-user-level)
  167.  
  168. (set @default-dest folder)    ; Die Zuweisung ist sehr wichtig!
  169.  
  170. (set destStart    (tackon folder "Start"))
  171. (if                                          ; Haupt-Verzeichnis erzeugen
  172.     (= (exists destStart) 0)
  173.     (makedir destStart (infos))
  174. )
  175.  
  176.  
  177.  
  178.  
  179.  
  180. (complete 20)
  181.  
  182.  
  183.  
  184.  
  185. (copyfiles                                            ; Beispiele kopieren
  186.     (prompt #prp-copy-start)
  187.     (help #hlp-copy-start)
  188.     (source #startsource)
  189.     (dest destStart)
  190.     (all)
  191.     (confirm)
  192. )
  193.  
  194. (complete 50) 
  195.  
  196. (copyfiles                                            ; Libs kopieren
  197.     (prompt #prp-copy-libs)
  198.     (help #hlp-copy-libs)
  199.     (source #libssource)
  200.     (dest "libs:")
  201.     (all)
  202.     (confirm)
  203. )
  204.  
  205.  
  206.  
  207. (complete 60)
  208.  
  209. (set changechoice 1)
  210.  
  211.     (set changechoice
  212.                (askchoice
  213.  (prompt (cat "\n Möchtest Du Runner per WB-Startup Schublade starten"
  214.     "oder lieber von der User-Startup Sequence aus?\n\n"
  215.      "Wegen des Festhaltens der Systemzeit ist es notwendig!"))
  216.            (help @askchoice-help)
  217.              (choices "WB-Startup" "User-Startup")
  218.              (default 0)
  219.       )
  220.             )
  221.  
  222.  
  223. ; ------- STARTUP ÄNDERN
  224. (set command1 (cat  "ASSIGN Runner: " folder "Start\nrun >nil: Runner:Runner"))
  225.            
  226.   ;  (if (set changechoice 1)
  227.  
  228. (copyfiles
  229.         
  230.     (source source-Runner)
  231.     (dest destStart)
  232.     (infos)
  233.  
  234.  
  235. (set command1.txt
  236.     (cat 
  237.          "\n\n\nDamit Runner richtig arbeitet  "
  238.       "muß eine Änderung in der User-Startup vorgenommen werden.\n\n"
  239.          command1
  240.     )
  241.              
  242. )
  243.  
  244.  
  245.  
  246. )
  247.  
  248.  
  249.  
  250.      (if (not changechoice)
  251.  
  252.  
  253. (set command1 (cat  "ASSIGN Runner: " folder "Start"))
  254.  
  255.    )
  256.  
  257. (if (not changechoice)
  258.  
  259. (copyfiles
  260.         (prompt #prp-copy-Hauptprogramm)
  261.     (help #hlp-copy-Hauptprogramm)
  262.     (source source-Runner)
  263.     (dest "SYS:WBStartup")
  264.     (infos)
  265. ))
  266.  
  267.  (complete 80) 
  268.  
  269. (set command1.txt
  270.     (cat 
  271.          "\n\n\nDamit Runner richtig arbeitet  "
  272.       "muß eine Änderung in der User-Startup vorgenommen werden.\n\n"
  273.          command1
  274.     )
  275.              
  276. )
  277.  
  278.  
  279.  
  280.  
  281.  
  282. (startup "runner"
  283.     (prompt command1.txt)
  284.     (help #help-startup)
  285.     (command command1)
  286. )
  287.  
  288. (makeassign "Runner")
  289. (makeassign "Runner"  destStart)
  290.  
  291.  
  292. (complete 95)
  293.  
  294. ; ------- FERTIG
  295.  
  296. (message (cat 
  297.     "Installation  Runner beendet.\n"
  298.    "Falls die Zeilen:\n" command1 "\nnicht in Deiner Startup-Sequence bzw. "
  299.    "User-Startup eingefügt wurde, dann hole dies bitte nach."
  300.    "Das Tool erscheint ab jetzt bei jedem Rechnerstart! \n\n")
  301. )
  302.  
  303.  
  304. (complete 100)
  305.  
  306. (set FREERROR (run "Runner" ))
  307.  
  308. (if  ( <> FREERROR 0)
  309.     (
  310.     (delete "Runner:Start")
  311.     
  312.     (message
  313.         "\n\n\n\n"
  314.         "Fehler bei der Installation.\n"
  315.         "Die Installation war fehlerhaft!\n\n"
  316.         "Überprüfe die Vollständigkeit des Archives!")
  317.     )
  318. )
  319.  
  320.  
  321.  
  322. (exit)